home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 9 / 009.d81 / poe adventure (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  21.4 KB  |  681 lines
  1. 2 dima$(12),o$(24),o(24),r$(15)
  2. 5 poke53280,6:poke53281,0:poke646,1:printchr$(14)
  3. 10 goto15000
  4. 1000 remconversation
  5. 1010 ifr=14andd(4)=0thengosub25030:ifde(2)=4then16000
  6. 1020 ifr=4thengosub25000:ifde(1)=4then16000
  7. 1030 x=0
  8. 1040 iff4=3then16000
  9. 1060 print
  10. 1070 print"--->[215]hat should [201] do now?":print:inputc$:print
  11. 1080 ifc$=""thenprinta$(1):goto1000
  12. 1090 iflen(c$)=1ormid$(c$,2,1)=" "then1210
  13. 1100 ifmid$(c$,2,1)=" "thenprinta$(2):printleft$(c$,1):goto1000
  14. 1110 iflen(c$)=2ormid$(c$,3,1)=" "then2000
  15. 1120 iflen(c$)=3ormid$(c$,4,1)=" "then3000
  16. 1130 iflen(c$)=4ormid$(c$,5,1)=" "then4000
  17. 1140 iflen(c$)=5ormid$(c$,6,1)=" "then6000
  18. 1150 iflen(c$)=6ormid$(c$,7,1)=" "then8000
  19. 1160 iflen(c$)=7ormid$(c$,8,1)=" "then8500
  20. 1170 iflen(c$)=8ormid$(c$,9,1)=" "then9000
  21. 1180 iflen(c$)=9ormid$(c$,10,1)=" "then9500
  22. 1190 iflen(c$)=11ormid$(c$,12,1)=" "then9600
  23. 1200 printa$(1):goto1000
  24. 1210 fl=0:ifdark=1and(l=0 or o(15))thenfl=1
  25. 1212 iffl=1thenprint"[208]oe wrote in the 19th century.  [212]hat "
  26. 1214 iffl=1thenprint"was before they invented x-rays vision."
  27. 1216 iffl=1thenprint"[201]t's dark in here!!!":goto1000
  28. 1218 fl=0
  29. 1220 ifc$="s"then1320
  30. 1230 ifc$="n"then1340
  31. 1240 ifc$="w"then1370
  32. 1250 ifc$="e"then1400
  33. 1260 ifc$="u"then1440
  34. 1270 ifc$="d"then1600
  35. 1280 ifc$="i"then14100
  36. 1290 ifleft$(c$,1)<>"l"thenprinta$(2):printleft$(c$,1):goto1000
  37. 1300 ifc$="l"then13500
  38. 1310 c$="look"+mid$(c$,2):goto4000
  39. 1320 ifs=0 thenprinta$(3):goto1000
  40. 1330 r=r-1:goto13000
  41. 1340 ifn=0thenprinta$(3):goto1000
  42. 1350 ifr=1andd(1)=0thenprinta$(4):goto1000
  43. 1360 r=r+1:goto13000
  44. 1370 ifw=0 thenprinta$(3):goto1000
  45. 1380 ifr=4thenprint"[201] can't do that.  [212]he moving wall has"
  46. 1382 ifr=4thenprint"blocked the door!":goto1000
  47. 1390 r=5:goto13000
  48. 1400 ife=0 thenprinta$(3):goto1000
  49. 1410 ifr=2thenr=4
  50. 1420 ifr=5thenr=2
  51. 1430 goto13000
  52. 1440 ifu=0 thenprinta$(3):goto1000
  53. 1450 ifr=2thens=1:gosub26000:goto1000
  54. 1460 ifr=4andwtthenprint"[201] can't fit. [201]'m carrying too much.":goto1000
  55. 1470 ifr=4thenr=6
  56. 1480 ifr=7thenr=3
  57. 1490 ifr=8thenr=7
  58. 1500 ifr=9thenr=8
  59. 1510 ifr=10thenr=9
  60. 1520 ifr=14andd(4)=0thenprinta$(4):goto1000
  61. 1530 ifr=14thenr=5
  62. 1540 ifr=13andd(5)=0thenprinta$(4):goto1000
  63. 1550 ifr=13thenr=14
  64. 1560 ifr=12andd(6)=0thenprinta$(4):goto1000
  65. 1570 ifr=12thenr=13
  66. 1580 ifr=11thenr=12
  67. 1590 goto13000
  68. 1600 ifr=8andd(3)thend=1
  69. 1610 ifd=0thenprinta$(3):goto1000
  70. 1615 ifr=6andd(8)=0thenprinta$(4):goto1000
  71. 1620 ifr=6thenr=2:s=2:gosub26000
  72. 1630 ifr=9thenr=10
  73. 1640 ifr=8thenr=9
  74. 1650 ifr=7thenr=8
  75. 1660 ifr=3andd(2)=0thenprinta$(5):goto1000
  76. 1670 ifr=3thenr=7
  77. 1680 ifr=12thenr=11
  78. 1690 ifr=13thenr=12
  79. 1700 ifr=14thenprinta$(4):goto1000
  80. 1710 goto13000
  81. 2000 rem2letter1stwords
  82. 2010 s$=left$(c$,2):s2$=" ":iflen(c$)>3thens2$=mid$(c$,4)
  83. 2020 ifs$<>"go"thenprinta$(2):prints$:goto1000
  84. 2030 ifc$="go"thenprinta$(1):goto1000
  85. 2040 fl=0:ifs2$<>"south"andr=3ando(7)=rthenfl=1
  86. 2042 iffl=1thenprint"[212]he orangutan won't let me.":goto1000
  87. 2044 fl=0
  88. 2050 fl=0:ifs2$="north"ors2$="south"ors2$="east"ors2$="west"ors2$="up"thenfl=1
  89. 2052 ifs2$="down"orfl=1thenc$=left$(s2$,1):goto1210
  90. 2054 fl=0
  91. 2100 ifs2$<>"clock"then2150
  92. 2110 ifr<>3thenprinta$(6):goto1000
  93. 2120 ifd(7)=0thenprint"[201]t has to be opened first.":goto1000
  94. 2130 ifd(2)=0thende=3:gosub27000:goto16000
  95. 2140 r=7:goto13000
  96. 2150 ifs2$="door"thens=3:gosub26000:goto1000
  97. 2155 ifs2$="hole"andr=8ando(22)=rthenr=9:goto13000
  98. 2160 fl=0:if(s2$="plaque"andr=1)or(s2$="ladder"andr=4)thenfl=1
  99. 2162 if((s2$="raven"ors2$="perch")andr=5)thenfl=1
  100. 2164 iffl=1thenprint"[207]kay.":fl=0:goto1000
  101. 2170 ifs2$="desk"andr=2thens=4:gosub26000:goto1000
  102. 2180 ifs2$<>"shelves"ands2$<>"bookshelves"then2250
  103. 2190 fl=0:ifr=2and(o(6)=roro(8)=r)thens=5:gosub26000:fl=1
  104. 2192 iffl=1thenifo(6)=rando(8)=rthens=6:gosub26000:fl=0
  105. 2200 ifr=2and(o(6)=roro(8)=r)then1000
  106. 2210 ifr=2ando(6)=1000thens=5:gosub26000:s=6:gosub26000:o(6)=r:o(8)=r:goto1000
  107. 2220 ifr=2thenprinta$(9):goto1000
  108. 2230 ifs2$=" ladder"andr=4thenprint"[207]kay.":goto1000
  109. 2240 ifs2$=" raven"ors2$=" perch"andr=5thenprint"[207]kay.":goto1000
  110. 2250 ifs2$="coffin"andr=5andd(4)thenr=14:goto13000
  111. 2260 ifs2$="coffin"andr=5thenprint"[201]t has to be opened first.":goto1000
  112. 2270 ifs2$="stairs"andr=7thenprint"up or down?":goto1000
  113. 2280 ifs2$="stairs"andr=8then1440
  114. 2290 ifs2$="walls"thenprinta$(1):goto1000
  115. 2300 ifleft$(s2$,4)<>"pass"then2340
  116. 2310 ifd(3)andr=8thenr=9:goto13000
  117. 2320 ifr=10thenr=9:goto13000
  118. 2330 ifr=9thenprinta$(9):goto1000
  119. 2340 ifs2$="pump"andr=10thens=46:gosub26000:goto1000
  120. 2350 ifs2$="ledge"andr=10thenprint"[201]t's too high up.":goto1000
  121. 2360 ifs2$="tree"andr=11then1440
  122. 2370 gosub63100:goto1000
  123. 2380 printa$(2):prints2$:goto1000
  124. 3000 remthreeletterwords
  125. 3010 s$=left$(c$,3):s2$="":iflen(c$)>4thens2$=mid$(c$,5)
  126. 3020 ifc$="run"thenprint"[201] need a direction.":goto1000
  127. 3030 ifs$="run"thenc$="go "+s2$:goto2020
  128. 3040 ifs$="get"thenc$="take "+s2$:goto4160
  129. 3050 ifs$<>"te"then3110
  130. 3060 ifs2$<>"string"thenprinta$(1):goto1000
  131. 3070 ifo(20)<>rando(20)thenprinta$(1):goto1000
  132. 3080 input"to what -- in one word?";c$:ifc$<>"bug"thenprinta$(10):goto1000
  133. 3090 ifo(16)thenprinta$(5):goto1000
  134. 3100 print"[207]kay.":te=1:o$(16)="small gold bug tied to piece of string."
  135. 3102 o$(20)="":o(20)=0:goto1000
  136. 3110 ifc$="say"thenprinta$(1):goto1000
  137. 3120 ifs$="say"thenprint"[207]kay.":prints2$:printa$(8):goto1000
  138. 3125 ifs$="put"thenc$="insert "+s2$:goto8000
  139. 3130 ifs$<>"eat"then3220
  140. 3140 ifs2$="banana"ando(9)=0thenprint"[217]ummy!":o(9)=1000:goto1000
  141. 3150 ifs2$="opium"ando(18)=0thens=7:gosub26000:o(18)=1000:goto1000
  142. 3160 ifs2$=" opium"thenprinta$(5):goto1000
  143. 3170 forx=1to23:reado$:ifs2$=o$ando(x)=0thenprinta$(10):x=50
  144. 3180 next
  145. 3190 restore
  146. 3200 ifx<50thenprinta$(1)
  147. 3210 restore:goto1000
  148. 3220 ifs$<>"pet"then3260
  149. 3230 ifo(7)<>rthenprinta$(10):goto1000
  150. 3240 fl=0:ifs2$="orangutan"thenfl=1
  151. 3242 iffl=1thenprint"[200]e looks at me strangely and waves his  hand at me.":goto1000
  152. 3244 fl=0
  153. 3250 printa$(1):goto1000
  154. 3260 ifs$="net"ando(14)=0thenfl=1
  155. 3262 iffl=1thenprint"[212]his is a butter fly net.  [196]o you think "s2$" looks like";
  156. 3264 iffl=1thenprint" a butterfly?":goto1000
  157. 3270 ifs$="net"thenprinta$(5):goto1000
  158. 3280 ifs$<>"rap"ands$<>"tap"ands$<>"hit"then3310
  159. 3290 fl=0:ifo(10)=0thenfl=1
  160. 3292 iffl=1thenprint"[201]f you want to hit something with the "
  161. 3294 iffl=1thenprint"pix, try the expression 'pick (blank)'."
  162. 3296 iffl=1thenprint"[205]eanwhile, without the pick..."
  163. 3298 fl=0
  164. 3300 printa$(8):goto1000
  165. 3310 ifs$<>"dig"then3990
  166. 3320 ifr<>11thens$="pick":goto5520
  167. 3330 ifo(10)=1thenprinta$(5):goto1000
  168. 3340 input"[215]here -- in one word?";c$
  169. 3342 ifc$<>"mark"andc$<>"bug"thenprinta$(8):goto1000
  170. 3350 o(22)=4:o(13)=r:print"[197]ureka!!  [215]e've found it!!!  [212]here's  "
  171. 3352 print"real treasure here at last!!!":sc=4:goto1000
  172. 3990 printa$(2):prints$:goto1000
  173. 4000 rem4letterwords
  174. 4010 s$=left$(c$,4):s2$="":iflen(c$)>5thens2$=mid$(c$,6)
  175. 4020 ifs$<>"read"then4140
  176. 4030 ifc$="read"thenprinta$(1):goto1000
  177. 4040 ifleft$(s2$,4)="book"thenprint"[208]lease be more specific.":goto1000
  178. 4050 ifs2$="lolita"ando(6)=0thens=8:gosub26000:goto1000
  179. 4060 fl=0:if(s2$="dictionary"ors2$="ameslan")ando(8)=0thenfl=1
  180. 4062 iffl=1thens=9:gosub26000:fr=1:fl=0:goto1000
  181. 4070 ifs2$="manuscript"ando(23)=0thens=10:gosub26000:goto1000
  182. 4080 ifs2$="plaque"andr=1thens=12:gosub26000:goto1000
  183. 4090 ifs2$="sign"andr=5thens=16:gosub26000:goto1000
  184. 4100 ifs2$="note"andr=6thens=17:gosub26000:goto1000
  185. 4110 fl=0:ifs2$="ameslan"ors2$="lolita"ors2$="dictionary"thenfl=1
  186. 4112 iffl=1ors2$="manuscript"thenprinta$(11):fl=0:goto1000
  187. 4120 ifs2$="plaque"ors2$="sign"ors2$="note"thenprinta$(6):goto1000
  188. 4130 printa$(1):goto1000
  189. 4140 ifs$="push"thenc$="press "+s2$:s$="press":goto6280
  190. 4150 ifs$<>"take"then4300
  191. 4160 ifc$="take"thenprinta$(1):goto1000
  192. 4170 ifs2$="inventory"then14100
  193. 4180 ifr=3ando(7)=rthenprint"[212]he orangutan won't let me.":goto1000
  194. 4190 ifs2$="all"thenprint"[208]lease be more specific.":goto1000
  195. 4200 ifleft$(s2$,3)="jug"thenprinta$(10):goto1000
  196. 4205 ifs2$="hole"thenprint"[206]ow really...":goto1000
  197. 4210 fl=0:ifs$="take"andwt=7thenprint"[201] can't do that. [201]'m":fl=1
  198. 4212 iffl=1thenprint"carrying too much already.":fl=0:goto1000
  199. 4220 ifs2$="dictionary"thens2$="ameslan"
  200. 4230 fl=0:ifs2$="raven"thenprint"[200]e bites me on the finger.":fl=1
  201. 4232 iffl=1thenprint"[201]'d let him stay here.":fl=0:goto1000
  202. 4240 ifs2$="bag"ando(2)=rthens$="open":o(2)=0:goto4630
  203. 4250 restore:forx=1to23:reado$
  204. 4260 ifs2$=o$ando(x)=rtheno(x)=0:x=23:wt=wt+1:print"[207]kay.":tf=1:goto4280
  205. 4270 ifs2$=o$thenprinta$(6):x=23:tf=1
  206. 4280 next:restore:iftfthentf=0:goto1000
  207. 4290 print"[201] can't take:":prints2$:goto1000
  208. 4300 ifc$="save"orc$="save game"then21000
  209. 4310 ifs$="save"thenprinta$(10):goto1000
  210. 4320 ifs$<>"quit"then4350
  211. 4325 input"[196]o you wish to try again?";c$:ifc$="y"thenrun
  212. 4330 ifc$<>"n"andc$<>"no"then4330
  213. 4340 print"[193]ll right. [201]'ll be here whenever you're ready.":goto63900
  214. 4350 ifs$="fuck"thenprint"tsk, tsk.":goto1000
  215. 4360 ifs$="kick"thenprinta$(10):goto1000
  216. 4370 fl=0:ifs$="help"theninput"[210]eally???";c$:fl=1
  217. 4372 iffl=1thenifc$="y"orc$="yes"thens=48+sc:gosub26000:fl=0:goto1000
  218. 4375 ifs$="help"thenprint"let's wait until you really need it.":goto1000
  219. 4380 ifs$="kill"thenprinta$(10):goto1000
  220. 4390 ifs$<>"open"then4660
  221. 4400 ifs2$<>"door"then4490
  222. 4410 ifr=1andd(1)=0thend(1)=1:print"[207]kay.":goto1000
  223. 4420 ifr=2thenprinta$(7):goto1000
  224. 4430 ifr=6andd(8)=0thend(8)=1:print"[207]kay.":goto1000
  225. 4440 ifr=12andd(6)=0thend(6)=1:print"[207]kay.":goto1000
  226. 4450 ifr=13andd(5)=0thend(5)=1:print"[207]kay.":goto1000
  227. 4460 ifr=14thenprinta$(7):goto1000
  228. 4470 ifr=1orr=4orr=6orr=12orr=13thenprinta$(12):goto1000
  229. 4480 printa$(1):goto1000
  230. 4490 ifs2$="desk"andr=2thens=11:gosub26000:goto1000
  231. 4500 ifs2$="window"andr=3thenprinta$(12):goto1000
  232. 4510 ifs2$="clock"andr=3andd(7)=0thend(7)=1:print"[207]kay.":goto1000
  233. 4520 ifs2$="clock"andr=3thenprinta$(12):goto1000
  234. 4530 ifs2$<>"coffin"then4590
  235. 4540 ifr=5andd(4)=0thend(4)=1:print"[207]kay.":goto1000
  236. 4550 ifr=5thenprinta$(12):goto1000
  237. 4560 ifr=14andd(14)=0thenprinta$(7):goto1000
  238. 4570 ifr=14thenprinta$(12):goto1000
  239. 4580 printa$(6):goto1000
  240. 4590 ifs2$="walls"andr=8thenprinta$(7):goto1000
  241. 4600 ifs2$="walls"thenprinta$(10):goto1000
  242. 4610 ifs2$="floor"andr=8thenprinta$(7):goto1000
  243. 4620 ifs2$="floor"thenprinta$(10):goto1000
  244. 4630 fl=0:ifs2$="bag"ando(2)=0theno(2)=1000:o(3)=r:o(20)=r:fl=1
  245. 4632 iffl=1thenprint"[212]he bag disintegrates in my hands."
  246. 4634 iffl=1thenprint"[211]ome things fell out of it and seem to"
  247. 4636 iffl=1thenprint"be in good shape.":fl=0:goto1000
  248. 4640 ifs2$="desk"ors2$="window"ors2$="clock"ors2$="bag"thenprinta$(6):goto1000
  249. 4650 printa$(1):goto1000
  250. 4660 ifs$<>"look"then5010
  251. 4670 fl=0:ifs2$<>"orangutan"andr=3ando(7)=rthenfl=1
  252. 4672 iffl=1thenprint"[212]he orangutan won't let me.":fl=0:goto1000
  253. 4680 ifc$="look"ors2$="around"then13500
  254. 4690 fl=0:if(s2$="hole"andr=3)thenfl=1
  255. 4692 if(s2$="stairs"and(r=7orr=8))thenfl=1
  256. 4694 if((s2$="branches"ors2$="leaves"ors2$="sap")andr=12)thenfl=1
  257. 4696 if((s2$="handholds"ors2$="spring"ors2$="mechanism")andr=13)thenfl=1
  258. 4698 iffl=1thenprinta$(9):fl=0:goto1000
  259. 4700 fl=0:ifs2$="velvet"ors2$="lining"ors2$="lid"ors2$="bottom"thenfl=1
  260. 4702 ifs2$="sides"ors2$="lever"ors2$="pipe"orfl=1thenprinta$(9):fl=1:goto1000
  261. 4710 fl=0:ifs2$="down"ors2$="cobwebs"or(s2$="ladder"andr=4)thenfl=1
  262. 4712 if((s2$="pedestal"ors2$="perch")andr=5)thenfl=1
  263. 4714 if(s2$="tree"andr=11)or(left$(s2$,3)="jug"andr=7)thenfl=1
  264. 4716 iffl=1thenprinta$(9):fl=0:goto1000
  265. 4720 ifs2$="plaque"andr=1thens=12:gosub26000:goto1000
  266. 4730 fl=0:ifleft$(s2$,4)="book"thenprint"[208]lease be specific and give a title.":fl=1
  267. 4732 iffl=1thenfl=0:goto1000
  268. 4740 ifs2$="building"andr=1then13070
  269. 4750 ifs2$="building"thenprinta$(1):goto1000
  270. 4760 ifs2$="desk"andr=2thens=4:gosub26000:goto1000
  271. 4770 fl=0:if(s2$="shelves"ors2$="bookshelves")thenfl=1
  272. 4772 iffl=1andr=2and((o(6)=roro(8)=r)or(o(6)=1000))thens=5:gosub26000:fl=2
  273. 4774 iffl=2and(o(6)=rando(8)=r)or(o(6)=1000ando(8)=1000)thenfl=3
  274. 4776 iffl=3thens=6:gosub26000:o(6)=r:o(8)=r:fl=0
  275. 4780 if(s2$="shelves"ors2$="bookshelves")andr=2and(o(6)=roro(8)=r)then1000
  276. 4790 if(s2$="shelves"ors2$="bookshelves")andr=2thenprinta$(9):goto1000
  277. 4800 ifs2$="window"andr=3thens=13:gosub26000:goto1000
  278. 4810 ifs2$="clock"andr=3thens=14:gosub26000:goto1000
  279. 4820 ifs2$="fireplace"andr=3thens=15:gosub26000:goto1000
  280. 4830 ifs2$="coffin"and(r=5orr=14)thenprinta$(9):goto1000
  281. 4840 ifs2$="sign"andr=5thens=16:gosub26000:goto1000
  282. 4850 ifleft$(s2$,4)="wall"ors2$="floor"ors2$="door"thenprinta$(9):goto1000
  283. 4860 ifs2$="note"andr=6thens=17:gosub26000:goto1000
  284. 4870 ifleft$(s2$,3)="jug"andr=7thenprinta$(9):goto1000
  285. 4880 ifleft$(s2$,3)="jug"thenprinta$(6):goto1000
  286. 4890 ifs2$="pump"andr=10thens=46:gosub26000:goto1000
  287. 4900 ifs2$="ledge"andr=10thenprint"it's too high up.":goto1000
  288. 4910 ifs2$="tree"andr=11thenprinta$(9):goto1000
  289. 4920 fl=0:ifs2$="bottle"ando(5)=0thenfl=1
  290. 4922 iffl=1thenprint"[199]ood [199]rief! [201] don't know how it fit in,"
  291. 4924 iffl=1thenprint"but there's a manuscript stuffed in"
  292. 4926 iffl=1thenprint"there.  [201]t comes out easily enough."
  293. 4928 iffl=1theno(23)=0:o(5)=1000:o(4)=0:fl=0:goto1000
  294. 4930 fl=0:ifs2$="bottle"ors2$="plaque"ors2$="desk"ors2$="shelves"thenfl=1
  295. 4932 ifs2$="bookshelves"ors2$="ladder"ors2$="coffin"ors2$="perch"thenfl=1
  296. 4934 ifs2$="pump"ors2$="ledge"ors2$="tree"thenfl=1
  297. 4936 iffl=1thenprinta$(6):fl=0:goto1000
  298. 4940 ifs2$="sign"ors2$="note"orleft$(s2$,3)="jug"ors2$="window"thenfl=1
  299. 4942 ifs2$="clock"ors2$="fireplace"ors2$="pedestal"thenfl=1
  300. 4944 iffl=1thenprinta$(6):fl=0:goto1000
  301. 4950 fl=0:forx=1to23:reado$:ifs2$=o$thenx=x+49:fl=1
  302. 4951 iffl=0then4960
  303. 4952 iffl=1ando(x-49)<>0ando(x-49)<>rthennext:printa$(6):restore:fl=0:goto1000
  304. 4960 next
  305. 4970 restore
  306. 4980 ifs2$="bricks"ando(11)=roro(11)=0thenx=61
  307. 4990 ifx<50thenprinta$(1):goto1000
  308. 5000 s=x-50+17:gosub26000:goto1000
  309. 5010 ifs$<>"drop"then5190
  310. 5020 ifs2$<>"all"then5070
  311. 5030 forx=1to23
  312. 5040 ifo(x)=0theno(x)=r
  313. 5050 next
  314. 5060 print"[207]kay.":wt=0:goto1000
  315. 5070 ifs2$="dictionary"thens2$="ameslan"
  316. 5080 ifteands2$="bug"ors2$="string"then5140
  317. 5090 forx=1to23:reado$
  318. 5100 ifs2$=o$ando(x)=0theno(x)=r:x=23:tf=1:wt=wt-1:print"[207]kay.":goto5120
  319. 5110 ifs2$=o$thenprinta$(5):x=23:tf=1
  320. 5120 next:restore:iftfthentf=0:goto1000
  321. 5130 print"i can't drop "+s2$:goto1000
  322. 5140 ifs2$="string"thenprint"[217]ou'd better untie it first.":goto1000
  323. 5150 fl=0:ifr<>12thenprinta$(8):print"[212]he string is still attached to my":fl=1
  324. 5152 iffl=1thenprint"finger.":fl=0:goto1000
  325. 5160 ifo(12)<>rthenprinta$(5):goto1000
  326. 5170 input"[196]rop it where -- in one word ";c$
  327. 5172 ifc$<>"skull"andc$<>"eye"andc$<>"socket"thenprinta$(10):goto1000
  328. 5180 s=47:gosub26000:goto1000
  329. 5190 ifs$="find"thenprinta$(7):goto1000
  330. 5200 ifs$<>"feed"then5270
  331. 5210 ifs2$<>"orangutan"then5250
  332. 5220 ifo(7)=rando(9)=0theno(9)=1000:print"he downs it in one bite.":goto1000
  333. 5230 ifo(7)<>rthenprinta$(7):goto1000
  334. 5240 printa$(7):goto1000
  335. 5250 ifs2$="raven"thenprinta$(10):goto1000
  336. 5260 printa$(1):goto1000
  337. 5270 ifs$<>"give"then5300
  338. 5271 ifo(7)<>rthenprinta$(10):goto1000
  339. 5272 ifs2$="banana"ando(9)=0thenprint"[200]e downs it in one bite.":o(9)=1000:goto1000
  340. 5273 ifs2$="opium"ando(18)=0thenprint"[200]e sniffs it and gives it back.":goto1000
  341. 5274 ifs2$="dictionary"thens2$="ameslan"
  342. 5275 forx=1to23:reado$
  343. 5276 ifs2$=o$ando(x)=0theno(x)=1000:x=23:tf=1:wt=wt-1:print"[200]e crushes it.":goto5278
  344. 5277 ifs2$=o$thenprinta$(5):x=23:tf=1
  345. 5278 next:restore:iftfthentf=0:goto1000
  346. 5279 print"i can't give "+s2$:goto1000
  347. 5290 printa$(1):goto1000
  348. 5300 ifs$<>"ring"then5360
  349. 5310 ifo(17)thenprinta$(5):goto1000
  350. 5320 ifs2$<>"bell"ands2$<>""thenprinta$(10):goto1000
  351. 5330 fl=0:print"[200]mmm.  [211]ome mild tintinnabulation.":gosub63000
  352. 5332 print"[212]he raven has come and taken the bell   away from me."
  353. 5334 o(17)=5:ifr=14thend(4)=1:fl=1
  354. 5336 iffl=1thenprint"[211]omehow he managed to leave the coffin  top open! [201] can go up!"
  355. 5340 ifsc=4thensc=5
  356. 5350 goto1000
  357. 5360 ifs$<>"sign"then5440
  358. 5370 iffr=0thenprinta$(5):goto1000
  359. 5380 fl=0:ifs$=c$ors2$="hello"ors2$="hi"ors2$="help"ors2$="language"thenfl=1
  360. 5382 ifs2$="ameslan"orfl=1then5400
  361. 5390 printa$(1):goto1000
  362. 5400 ifo(7)<>rthenprinta$(8):goto1000
  363. 5410 print"[212]he orangutan signs back!  '[200]ello!' he "
  364. 5412 print"signs. '[193]bout those [210]ue [205]orgue murders-"
  365. 5414 print"the butler did it, not me.'"
  366. 5416 print"[215]ait a minute, he's going over to the "
  367. 5418 print"fireplace.":gosub63000:print"[200]e's pulling out a corpse and taking "
  368. 5420 print"something out of it's hand.  [200]e gives "
  369. 5421 print"it to me.  [201]t's a small gold bug.  [200]e's"
  370. 5422 print"signing again now, but too quickly for "
  371. 5423 print"for me to understand.  [200]e hands me his"
  372. 5424 print"peach pit, thrusts the body back up the"
  373. 5425 print"fireplace, and jumps out the window."
  374. 5430 o(19)=0:o(16)=0:o(7)=1000:sc=1:goto1000
  375. 5440 ifs$<>"make"then5470
  376. 5450 ifs2$="sign"thens2$="":c$="sign":s$=c$:goto5360
  377. 5460 printa$(1):goto1000
  378. 5470 ifs$<>"jump"then5510
  379. 5480 ifc$=s$theninput"up or down?";c$:c$=left$(c$,1):goto1260
  380. 5490 ifs2$="up"ors2$="down"thenc$=left$(s2$,1):goto1210
  381. 5500 printa$(1):goto1000
  382. 5510 ifs$<>"pick"then5630
  383. 5520 ifo(10)thenprinta$(5):goto1000
  384. 5530 ifr=14thenprint"[212]here's not enough room to move for a   solid swing.":goto1000
  385. 5540 ifr><8thenprinta$(10):goto1000
  386. 5550 ifs2$="floor"thend(3)=1:print"[200]ey!! [212]here's a passageway going down.":fl=1
  387. 5552 iffl=1thenprint"[201] hear a strong heartbeat-like noise.":sc=3:o(22)=r:goto1000
  388. 5560 ifleft$(s2$,4)<>"wall"thenprint"i can't "+c$:goto1000
  389. 5570 fl=0:ifleft$(s2$,4)="wall"theninput"[215]hich one [206]-[211]-[197]-[215]";c$:fl=1
  390. 5572 iffl=1thenifc$<>"n"andc$<>"s"andc$<>"e"andc$<>"w"thenprinta$(10):goto1000
  391. 5580 ifc$="w"thende=4:gosub27000:goto16000
  392. 5590 ifc$="n"thens=42
  393. 5600 ifc$="s"thens=43
  394. 5610 ifc$="e"thens=44
  395. 5620 gosub26000:goto1000
  396. 5630 ifs$<>"turn"ands$<>"pull"then5990
  397. 5640 ifr><10thenprinta$(10):goto1000
  398. 5650 ifs2$<>"lever"ands2$<>"pump"thenprinta$(1):goto1000
  399. 5660 s=45:gosub26000:print:r=11:goto13000
  400. 5990 printa$(2):prints$:goto1000
  401. 6000 remstart5letterwords
  402. 6010 s$=left$(c$,5):s2$="":iflen(c$)>6thens2$=mid$(c$,7)
  403. 6020 ifs$<>"climb"then6100
  404. 6030 if(s2$="ladder"ors2$="rope")andr=4andwt=0thenr=6:goto13000
  405. 6040 if(s2$="ladder"ors2$="rope")andr=4thens=41:gosub26000:f4=f4+1:goto1000
  406. 6050 ifs2$="stairs"and(r=7orr=8)thenr=r-1:goto13000
  407. 6060 ifs2$="tree"andr=11thenr=12:goto13000
  408. 6070 fl=0:ifleft$(s2$,4)="wall"thenprint"[201]t that a metaphorical statement?":fl=1
  409. 6072 iffl=1thenprint"[201] cannot climb these walls!!":goto1000
  410. 6080 ifs2$="ladder"ors2$="rope"ors2$="stairs"ors2$="tree"thenprinta$(6):goto1000
  411. 6090 printa$(1):goto1000
  412. 6100 ifs$="enter"andr=1andd(1)thenr=2:goto13000
  413. 6101 ifs$="enter"andr=1thenprinta$(4):goto1000
  414. 6105 ifs$="enter"thenprinta$(1):goto1000
  415. 6110 ifc$="leave"thenprint"[212]here's no turning back now.":goto1000
  416. 6120 ifs$="leave"thenc$="drop "+s2$:goto5070
  417. 6130 ifs$="throw"thenprinta$(10):goto1000
  418. 6140 ifs$="where"thenprint"you're on your own, pal.":goto1000
  419. 6150 ifs$<>"close"then6260
  420. 6160 ifs2$><"door"then6210
  421. 6170 ifr=2andd(1)thend(1)=0:print"[207]kay.":goto1000
  422. 6180 ifr=6andd(8)thend(8)=0:print"[207]kay.":goto1000
  423. 6190 ifr=2orr=6thenprinta$(5):goto1000
  424. 6200 printa$(1):goto1000
  425. 6210 ifs2$="coffin"andd(4)thenprint"[207]kay.":d(4)=0:goto1000
  426. 6220 ifs2$="coffin"thenprinta$(5):goto1000
  427. 6230 ifs2$="clock"andd(7)thend(7)=0:print"[207]kay.":goto1000
  428. 6240 ifs2$="clock"thenprinta$(5):goto1000
  429. 6250 printa$(10):goto1000
  430. 6260 ifc$="brief"thenbrief=1:print"[207]kay.":goto1000
  431. 6270 ifs$="smell"ors$="sniff"thenprint"puff puff.":goto1000
  432. 6280 ifs$="press"thenprinta$(8):goto1000
  433. 6290 fl=0
  434. 6291 ifc$="score"thenprint"[207]ut of a possible maximum score of 100, you have";:fl=1
  435. 6292 iffl=1thenprintint((sc/nt)*100):goto1000
  436. 6300 ifs$<>"light"then6350
  437. 6310 ifleft$(s2$,4)<>"flas"thenprinta$(10):goto1000
  438. 6320 ifo(15)=0andl=0thenl=1:print"[207]kay.":goto1000
  439. 6330 ifo(15)=0andl=1thenprint"it's already on.":goto1000
  440. 6340 printa$(5):goto1000
  441. 6350 ifs$="knock"thens$="rap":goto3290
  442. 6360 ifs$="break"thens$="pick":goto5520
  443. 6370 ifs$<>"untie"then6400
  444. 6380 ifte=0thenprinta$(5):goto1000
  445. 6390 o$(16)="small gold bug.     ":o$(20)="length of string.   "
  446. 6391 te=0:print"[207]kay.":goto1000
  447. 6400 ifc$="drink opium"thens2$="opium":goto3150
  448. 6990 printa$(2):prints$:goto1000
  449. 8000 remstart6letterwordshere
  450. 8010 s$=left$(c$,6):s2$="":iflen(c$)>7thens2$=mid$(c$,8)
  451. 8020 ifs$<>"insert"then8060
  452. 8030 fl=0:ifs2$="peach"ors2$="pit"ando(19)=0andr=3andd(7)=1andd(2)=0thenfl=1
  453. 8031 iffl=1thend(2)=1:print"[212]he pendulum has stopped moving.  [201] can"
  454. 8032 iffl=1thenprint"go in there now!":o(19)=1000:sc=2:goto1000
  455. 8040 ifs2$="peach"ors2$="pit"thenprinta$(5):goto1000
  456. 8050 printa$(10):goto1000
  457. 8060 ifs$<>"listen"then8490
  458. 8070 ifo(3)thenprint"i don't hear anything remarkable.":goto1000
  459. 8080 ifr<>8thenprint"[200]mmmm. [201] don't hear anything.":goto1000
  460. 8090 ifleft$(s2$,4)="wall"thenprinta$(8):goto1000
  461. 8100 fl=0:ifs2$="floor"thenprint"[201] hear a steady throbbing, like a heart":fl=1
  462. 8102 iffl=1thenprint"beat.  [212]here's something down there.!":goto1000
  463. 8110 printa$(1):goto1000
  464. 8490 printa$(2):prints$:goto1000
  465. 8500 rem7letterwords
  466. 8510 s$=left$(c$,7):s2$="":iflen(c$)>8thens2$=mid$(c$,9)
  467. 8520 ifs$<>"unlight"then8570
  468. 8530 ifo(15)thenprinta$(11):goto1000
  469. 8540 if(c$="unlight"orleft$(c$,12)="unlight flas")andl=1thenprint"[207]kay":l=0:lf=1
  470. 8541 iflfandr>7andr<14thendark=1
  471. 8542 iflfthenlf=0:goto1000
  472. 8550 fl=0:if(c$="unlight"orleft$(c$,12)="unlight flas")thenfl=1
  473. 8552 iffl=1thenprint"[212]he flashlight is not lit.":goto1000
  474. 8560 printa$(1):goto1000
  475. 8570 ifs$="examine"thenc$="look "+s2$:goto4670
  476. 8580 ifc$="breathe"thenprint"[208]uff! [208]uff!":goto1000
  477. 8590 ifc$="verbose"thenbr=0:print"[207]kay.":goto1000
  478. 8990 printa$(2):prints$:goto1000
  479. 9000 rem8letterwords
  480. 9010 s$=left$(c$,8):s2$="":iflen(c$)>9thens2$=mid$(c$,10)
  481. 9020 ifc$="bullshit"thenprint"[205]ooo!":goto1000
  482. 9030 ifs$="describe"thenc$="look "+s2$:goto4670
  483. 9040 printa$(2):prints$:goto1000
  484. 9500 rem9letterwords
  485. 9501 s$=left$(c$,9):s2$="":iflen(c$)>10thens2$=mid$(c$,11)
  486. 9510 ifleft$(c$,5)="inven"then14100
  487. 9520 printa$(2):prints$:goto1000
  488. 9600 rem11letterwords
  489. 9610 s$=left$(c$,11):s2$="":iflen(c$)>12thens2$=mid$(c$,13)
  490. 9620 ifleft$(c$,5)="steth"ando(3)thenprinta$(5):goto1000
  491. 9630 ifleft$(c$,5)="steth"thens$="listen":goto8080
  492. 9640 printa$(2):prints$:goto1000
  493. 13000 remroomchangeroutine
  494. 13001 d(4)=0:d(5)=0:f4=0:dark=0
  495. 13002 de(1)=0:de(2)=0
  496. 13010 open2,8,2,"r"+right$(str$(r),len(str$(r))-1)
  497. 13020 :
  498. 13030 input#2,ln
  499. 13040 forx=1toln:input#2,r$(x):next
  500. 13050 input#2,n,s,e,w,u,d
  501. 13060 close2
  502. 13070 remroomprints
  503. 13075 ifr=5andsc=5then17000
  504. 13090 fori=1toln
  505. 13100 forx=1tolen(r$(i))
  506. 13110 ifmid$(r$(i),x,1)="^"thenr$(i)=left$(r$(i),x-1)+","+mid$(r$(i),x+1)
  507. 13120 next
  508. 13125 ifl=0andr>7andr<14thennext:goto13250
  509. 13130 printr$(i):ifbrieftheni=ln
  510. 13140 next
  511. 13141 fl=0:ifr=8andd(3)thenprint"[212]here's a passageway going down.  [201] can":fl=1
  512. 13142 iffl=1thenprint"hear a steady heartbeat-like noise."
  513. 13160 gosub14000
  514. 13165 rem   if r=5andsc=5then17000
  515. 13170 goto1000
  516. 13250 print"[201]t's too dark to see in here.":dark=1:goto1000
  517. 13500 fori=1toln
  518. 13510 printr$(i):ifbrieftheni=ln
  519. 13520 next
  520. 13525 gosub14000:goto1000
  521. 14000 forx=1toa
  522. 14010 ifo(x)=rthenx=a:next:goto14040
  523. 14020 next
  524. 14030 return
  525. 14040 print:print"[212]he following items are in this area:"
  526. 14050 forx=1toa
  527. 14060 ifo(x)=rthenprintleft$(o$(x),len(o$(x))-1),;
  528. 14070 next
  529. 14075 printchr$(13)
  530. 14080 return
  531. 14100 forx=1toa
  532. 14110 ifo(x)=0thenx=a:next:goto14150
  533. 14120 next
  534. 14130 print"[201] am not carrying anything."
  535. 14140 goto1000
  536. 14150 print"[201] am carrying the following:"
  537. 14160 forx=1toa
  538. 14170 ifo(x)=0thenprintleft$(o$(x),len(o$(x))-1),;
  539. 14180 next
  540. 14190 print
  541. 14200 goto1000
  542. 15000 remintroductionandinitialization
  543. 15020 gosub15400:remintro
  544. 15030 gosub15500:reminitialize
  545. 15040 input"[147][196]o you wish to play a saved game";c$
  546. 15050 print
  547. 15060 ifc$="y"orc$="yes"thengoto20000
  548. 15070 ifc$<>"n"andc$<>"no"then15040
  549. 15075 print"[147]"
  550. 15080 goto13000
  551. 15400 print"[147]":print:printspc(15)"[208][207][197]-[208][207][197]-[208][207][197]":print:printspc(14)"by [202]im [205]enick"
  552. 15402 print:print:t$="[210]evised for the [195]-64 by [193]lan [199]ardner":gosub63200
  553. 15404 print:print:print:t$="[212]his game is loosely":gosub63200
  554. 15406 t$="-- [214][197][210][217][160][204][207][207][211][197][204][217] --":gosub63200
  555. 15408 t$="based upon the works of":gosub63200
  556. 15410 t$="[197]dgar [193]llan [208]oe.":gosub63200
  557. 15412 gosub63300:print:print:print
  558. 15414 t$="[212]he adventure has quite a large":gosub63200
  559. 15416 t$="vocabulary, and is capable of":gosub63200
  560. 15418 t$="understanding most one and two word":gosub63200
  561. 15420 t$="commands.":gosub63200:gosub63300
  562. 15422 t$="[193]bbreviations such as 'n' for north":gosub63200
  563. 15424 t$="or 'd' for down are acceptable.":gosub63200
  564. 15426 t$="[197]ither 'i' or 'inventory' will tell":gosub63200
  565. 15428 t$="you what your character is carrying.":gosub63200
  566. 15430 t$="'l' can be used for look.  [198]or shorter":gosub63200
  567. 15432 t$="descriptions, type 'brief'.":gosub63200
  568. 15434 t$="[198]or the full description,":gosub63200
  569. 15436 t$="type 'verbose'.":gosub63200:gosub63300:gosub30000
  570. 15440 return
  571. 15500 remsetvariables,housekeeping
  572. 15510 :
  573. 15530 open2,8,2,"afile"
  574. 15540 :
  575. 15550 input#2,a
  576. 15570 forx=1toa:input#2,a$(x):print".";:next
  577. 15580 close2
  578. 15590 open2,8,2,"ofile2"
  579. 15600 :
  580. 15610 input#2,a
  581. 15630 forx=1toa:input#2,o$(x):print".";:input#2,o(x):print".";:next
  582. 15640 close2:print
  583. 15670 r=1:nt=5:l=0:wt=2
  584. 15710 dataraven,bag,stethoscope,empty,bottle,lolita,orangutan,ameslan,banana
  585. 15711 datapick,bricks,skull,picture,net,flashlight,bug,bell,opium,pit,string
  586. 15712 datapainting,hole,manuscript
  587. 15990 return
  588. 16000 remlosingscenario
  589. 16080 print:print"[215]ell, it happened to [208]oe and now it's ":
  590. 16082 print"happened to you.  [215]elcome to the land "
  591. 16084 print"of they-who-push-up-daisies.":print
  592. 16090 print"[207]ut of a possible maximum score  of 100, you have ";int((sc/nt)*100)
  593. 16100 input"[195]are to try again";c$
  594. 16110 ifc$="y"orc$="yes"thenrun
  595. 16120 ifc$="n"orc$="no"thenprint"[193]ll right. [201]'ll be here whenever you're ready."
  596. 16130 goto17050
  597. 17000 remwinningscenario
  598. 17010 forx=1to5:poke53281,x:next:poke53281,0
  599. 17020 print"[217]ou've done it!!  [217]ou've gotten out and"
  600. 17022 print"found all of the treasures (how ever "
  601. 17024 print"meager they may appear now in the light"
  602. 17026 print"of day)."
  603. 17030 print"[195]ongratulations!!  [217]ou've played very"
  604. 17032 print"well.  [201] hope to see you again in the "
  605. 17034 print"future.":print
  606. 17050 goto63900
  607. 20000 remreopensavedgame
  608. 20010 open2,8,2,"gfile"
  609. 20020 :
  610. 20030 forx=1toa
  611. 20040 input#2,o(x)
  612. 20050 next
  613. 20060 input#2,r,l,wt,sc,fr,dark:input#2,te
  614. 20070 forx=1to8
  615. 20080 input#2,d(x)
  616. 20090 next
  617. 20100 close2
  618. 20101 iftetheno$(16)="small gold bug tied to piece of string. ":o$(20)=""
  619. 20102 print"[147]"
  620. 20110 goto13000
  621. 21000 remsavegame
  622. 21010 open15,8,15:print#15,"s0:gfile":close15
  623. 21020 open2,8,2,"0:gfile,s,w"
  624. 21030 forx=1toa
  625. 21040 print#2,o(x)
  626. 21050 next
  627. 21060 print#2,r:print#2,l:print#2,wt:print#2,sc:print#2,fr:print#2,dark
  628. 21062 print#2,te
  629. 21070 forx=1to8
  630. 21080 print#2,d(x)
  631. 21090 next
  632. 21100 close2
  633. 21105 printchr$(13):print"game saved."
  634. 21110 goto1000
  635. 25000 remdeathinroom4
  636. 25010 de(1)=de(1)+1:de=1:gosub27000:return
  637. 25030 remdeathinroom14
  638. 25040 de(2)=de(2)+1:de=2:gosub27000:return
  639. 26000 remhandlest$strings
  640. 26010 open2,8,2,"stfile":hi=int(s/256):lo=s-hi*256
  641. 26020 open15,8,15:print#15,"p"chr$(2)chr$(lo)chr$(hi)chr$(1):input#2,q8
  642. 26030 forq9=1toq8:print#15,"p"chr$(2)chr$(lo)chr$(hi)chr$(5+41*(q9-1))
  643. 26035 :
  644. 26040 input#2,s$
  645. 26050 prints$:nextq9:close2:close15
  646. 26060 return
  647. 26065 :
  648. 27000 remhandledeathstrings
  649. 27010 open2,8,2,"d"+right$(str$(de),len(str$(de))-1)
  650. 27020 :
  651. 27030 input#2,q8:forq9=1toq8:input#2,d$:printd$:nextq9
  652. 27040 close2
  653. 27050 :
  654. 27060 return
  655. 30000 print"[147]"
  656. 30010 t$="[193]n adventure game is a game in which":gosub63200
  657. 30020 t$="you travel from place to place,":gosub63200
  658. 30030 t$="interact with characters, and ":gosub63200
  659. 30040 t$="manuipulate objects to reach a goal.":gosub63200
  660. 30050 t$="[212]hat goal is usually to collect"     :gosub63200
  661. 30060 t$="treasures and to survive.":gosub63200
  662. 30070 t$="[217]ou may save a game in progress":gosub63200
  663. 30080 t$="by typing 'save' when you are" :gosub63200
  664. 30090 t$="asked for a command.":gosub63200:gosub63300:return
  665. 63000 forpause=1to2500:next:return
  666. 63100 fl=0
  667. 63102 ifs2$="clock"ors2$="hole"ors2$="plaque"ors2$="desk"ors2$="shelves"thenfl=1
  668. 63104 ifs2$="bookshelves"ors2$="ladder"ors2$="coffin"ors2$="raven"thenfl=1
  669. 63106 ifs2$="perch"ors2$="pump"ors2$="ledge"ors2$="tree"thenfl=1
  670. 63108 ifleft$(s2$,4)="pass"thenfl=1
  671. 63110 iffl=1thenprinta$(6):return
  672. 63200 rem   centering
  673. 63202 t=len(t$):t=20-t/2:printtab(t)t$:print:return
  674. 63300 rem   wait for keypress
  675. 63302 poke783,peek(783)and254
  676. 63304 poke781,23:poke782,13:sys65520:print"<press a key>":poke198,0:wait198,1:getc$
  677. 63306 print"[147]":return
  678. 63900 fordl=1to5000:next
  679. 63901 print"[147]load"chr$(34)"hello"chr$(34)",8":print"run"
  680. 63902 poke631,13:poke632,13:poke198,2:end
  681.